home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / robin10.arc / ROBIN.CMD < prev    next >
Encoding:
Text File  |  1986-12-15  |  2.2 KB  |  71 lines
  1. ;                   ROBIN.CMD       "Round Robin Dialer"
  2. ;                                 by
  3. ;                           Samuel Smulowitz
  4. ;                          CENTURY ASSOCIATES
  5. ;                          141-04 71st Avenue
  6. ;                          Flushing, N.Y. 11367
  7. ;
  8. START:
  9. ;  A USER MAY EXECUTE "ROBIN.CMD" FROM A COMMAND FILE OR VIA ALT-F5.
  10. ;  IF EXECUTING FROM A COMMAND FILE, ASSIGN S1 THRU Sn (MAX S8) TO A
  11. ;  LIST OF TELEPHONE NUMBERS TO BE DIALED.  ASSIGN S0 "ROBIN.CMD"
  12. ;  (NOTE: If all eight numbers are not used, the last number (Sn) in the
  13. ;  list must be followed by Sn+1 assigned 'END'  (see ROBINLST.CMD).
  14. ;
  15. ;  OTHERWISE IF THIS ROUTINE IS EXECUTED VIA ALT-F5, THE USER MUST
  16. ;  ENTER THE LIST OF NUMBERS TO BE DIALED.
  17. ;
  18. ;TRACE ON
  19. SWITCH S0
  20.   CASE "ROBIN.CMD"
  21.     ASSIGN S0 "HEAD1"
  22.     LOG CLOSE
  23.     EXECUTE "ROBIN-H1.SUB"
  24.   ENDCASE
  25.   CASE "HEAD1"
  26.     ASSIGN S0 "DISPLAY-NUMS"
  27.     EXECUTE "ROBIN-DN.SUB"
  28.   ENDCASE
  29.   CASE "DISPLAY-NUMS"
  30.     ASSIGN S0 "SETVALUES1"
  31.     EXECUTE "ROBIN-SV.SUB"
  32.   ENDCASE
  33.   CASE "SETVALUES1"
  34.     ASSIGN S0 "SKIP1"
  35.     EXECUTE "ROBIN-SK.SUB"
  36.   ENDCASE
  37.   CASE "SKIP1"
  38. ;   MLOAD "ROBIN-DT.KEY"
  39.     ASSIGN S0 "MODEM-COMMAND1"  ;IF LOADING ROBIN-D?.KEY, REMOVE THIS LINE.
  40.     EXECUTE "ROBIN-MC.SUB"      ;"    "         "     "     "      "    "
  41.   ENDCASE                       ;"    "         "     "     "      "    "
  42.   CASE "MODEM-COMMAND1"         ;"    "         "     "     "      "    "
  43.     EXECUTE "ROBIN-SF.SUB"
  44.   ENDCASE
  45.   CASE "_NULL"
  46.     LOG CLOSE
  47.     ASSIGN S0 "HEAD2"
  48.     EXECUTE "ROBIN-H2.SUB"
  49.   ENDCASE
  50.   CASE "HEAD2"
  51.     ASSIGN S0 "SETVALUES2"
  52.     EXECUTE "ROBIN-SV.SUB"
  53.   ENDCASE
  54.   CASE "SETVALUES2"
  55.     ASSIGN S0 "GETNUMS2"
  56.     EXECUTE "ROBIN-GN.SUB"
  57.   ENDCASE
  58.   CASE "GETNUMS2"
  59.     ASSIGN S0 "MODEM-COMMAND2"
  60. ;   MLOAD "ROBIN-DT.KEY"
  61.     EXECUTE "ROBIN-MC.SUB"     ;IF LOADING ROBIN-D?.KEY, REMOVE THIS LINE.
  62.   ENDCASE                      ;"    "        "      "      "     "   "
  63.   CASE "MODEM-COMMAND2"        ;"    "        "      "      "     "   "
  64.     EXECUTE "ROBIN-DR.SUB"
  65.   ENDCASE
  66. ENDSWITCH
  67. ;
  68. EXIT:
  69.   MESSAGE "   ERROR IN ROBIN.CMD.   'S0' SET TO "
  70.   MESSAGE S0
  71. EXIT